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1 /♦ 

2 /* ETC: Global system definitions 

3 /♦ 

4 /♦ TYPES. H - Portable type definitions 

5 /♦ - 

6 

7 lifndef TrPES_DEITNED 

8 Idefine ~T»ES~DE21NED 

9 

10 ffif (I defined (BIT32) £& ! defined (BZT16) ) 
U #errox BZT16 or BIT32 must be defined 

12 lendif 
13 

14 /* — - Cenmon types — 

15 

16 typedef int bool; 
17 

18 lifndef TRUE 

19 #define FALSE ((bool) 0) 

20 Idef ine TOTE { (bool) ( ! FALSE) ) 

21 #endif 
22 

23 typedef signed char sc h a r ; 

24 typedef unsigned char uchax; 
25 

26 iifndef _WINNT 

27 Idefine MXNCHAR ((char) 0x00) // 0x80 in WINNT.HM 

28 Idef ine MAXCHAR ( (char) 0x7F> 

29 lendif 

30 

31 Idefine HZKSCRAR ((char) 0x80) 

32 I define MAXSCHAR ( (char) 0x7F) 

33 

34 # define HZMUCKAR ((char) 0x00) 

35 # define MAXUCHAR ( (char) OxlT) 

36 

37 typedef void *_datap; 

38 typedef void *~codep; //$$ "void *_codep (void);" would not work 

39 

40 lifdef cplusplus 

41 Idefine NULXJD 0 

42 # define NULLC 0 

43 lelse 

44 Idefine NtJLLD ( ( jdatap) 0) 

45 Idefine NULLC ( (_codep) 0) 

46 lendif 
47 

48 lifndef HULL 

49 Idefine NULL ( (void *) 0> 

50 Sendif 
51 

52 /♦ 

53 Notes: 
54 

55 l. Types da tap and _codep are provided for systems/models in which 

56 data pointers are of different size than code pointers. See also 

57 type _po inter in the compatibility types section of this header file. 

58 */ 

59 
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1 /* Machine types 

2 

3 typedef unsigned char byte; 

4 typedef unsigned short int word; 

5 typedef unsigned long int dword; 

6 

7 # define KIKBYTE ((byte) 0x00) 

8 lifndef _WTONT_ 

9 t define MAXBTTE ( (byte) OxST) 
10 Iendif 

11 

12 #define MTNWORD ((word) OxOOOOU) 

13 lifndef WTHNT_ 

14 # define HAXWOBD ( (word) OxITOTU) 

15 iendif 

16 

17 Idefine MINDWOBD ((dword) OxOOOOOOOOUL) 

18 tfifndef WINNT_ 

19 Idefine MAXBWORD ((dword) OxITOTFFFUL) 

20 Iendif 
21 

22 /* — - Tolerance types (hardware -dependent) — — - 

23 

24 typedef unsigned int uint; //guaranteed to be at least 16 bits wide. 

25 typedef signed int a int; //guaranteed to be at least 16 bits wide. 
26 

27 ffdefine MININT ( ( int) 0x0000) 

28 Idefine MAXIOT (( int) 0x7FFT) 
29 

30 Idefine tCKSINT ( (sint) -32767-1) 

31 Idefine MAXSIOT ((sint) 0x7 FIT) 
32 

33 Idefine MXNUXNT ( (uint) 0x00000) 

34 Idefine MAXUINT ((uint) QxTTttV) 
35 

36 /* 



37 Notes : 
38 

39 1. Use tolerance types for variables that are expected to only take 

40 snail values which will never exceed the minimum number of guaranteed 

41 bit width , so that the compiler can choose the actual type which the 

42 underlying hardware feels most comfortable in dealing with. 
43 

44 2* Use of tolerance types is only allowed for variables of a local scope; 

45 it is prohibited for public/external variables. Writing the binary 

46 contents of a tolerance variable to a disk file is punishable by death. 
47 

48 3. Negative values are not allowed for type int. (thus it is 15 bits wide 

49 instead of 16 bits wide.) Use type sint if you are planning to assign 

50 negative values to a variable. 

51 

52 4. Alternatively , type int can be prohibited by I defining it as "$G$I$" 

53 (in the end of this header file) and the use of uint or sint can be 

54 promoted instead. 
55 

56 5. Operations that result in overflow/underflow beyond the mlninrnm 

57 number of guaranteed bits yield undefined results and should be 

58 avoided for all tolerance types. 



59 ♦/ 
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/* Portable types - 






typedef 






char 


int8 ; 


typedef 


signed 




ch&r 


a int 8 ; 


typedef 


unsigned 




char uintB ; 


typedef 




short 


int 


intl6; 


typedef 


signed 


short 


int 


sintl6 ; 


typedef 


unsigned short 


int 


uintl6; 


typedef 




long 


int 


int32; 


typedef 


signed 


long 


int 


sint32; 


typedef 


unsigned long 


int 


uint32; 


typedef 


unsigned 




chur 


flgB ; 


typedef 


unsigned short 


int 


flgl6; 


typedef 


unsigned long 


int 


flg32; 


typedef 


uint32 






_ctx; 


# define 


NO_CTX (( 


_ctx)6) 




tvoedef 


uint32 






_id32 


# define 


NO_ID32 


((_id32)0) 




typedef 


uintl6 






_idl6 


fdefine 


N0_ID16 


(<_id!6)0) 




typedef 


_id32 








# define 


NO_ID 


<(_id)0) 




typedef 


int8 






boolB ; 


# define 


MININT8 


(( intB) 


0x00) 


fdefine 


MAXINT8 


(( int8) 


0x7D 


# define 


MZKSXNT8 


<(sint8) 


0x60) 


# define 


MAXSINT8 


(<sint8) 


0x7F) 


# define 


MIKUIHT8 


(<uint8) 


0x00) 


1 define 


MAXUINT8 


< (uintB) 


OxJT) 


# define 


MXNXKT16 


(( iatl6) 


0x0000) 


# define 


MAXIOT16 


(( intl€) 


0x7FTF) 


fdefine 


MZNSXHT16 


( (sintl6) 


0x8000) 


fdefine 


MAXSINT16 


(<sintl6> 


0x7irr) 



#define 
fdefine 

fdefine 
fdefine 

fdefine 
fdefine 

fdefine 
fdefine 



M TMU1N T 1 6 
MAXUJU4T16 

MINIHT32 
MAXXHT32 

MZKSIKT32 
MAXSINT32 

MIMJINT32 
MAXUHTT32 



<uintl6) 
(uintl6) 

( int32) 
( int32) 

(sinfc32) 
(sint32) 

(uint32) 
(uint32) 



// 



size between da tap £ uint32 



// 32-bit id 



// 16-bit id 



// default id (32-bit) 



// the shortest stand-alone boolean 



OxOOOOU) 
OxTTTIV) 

OxOOOOOOOOL) 
0x7FITTITFL) 

0x800000001.) 
0x7nTTOTL) 

OxOOOOOOOOUX.) 
OxmTJTFFOL) 
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I 

2 /* 



3 Notes: 
4 

5 1- Use int!6 and lnt32 when you know the exact bit width that you want 

6 for your variable, but you do not care about the interpretation of 

7 the sign of the variable. This way, the compiler will choose an 

8 actual signed or unsigned type, depending on what the underlying 

9 hardware feels most comfortable in dealing with. 
10 

11 2. As an example , variables that are ideal candidates to be declared as 

12 intl6 or int32 are sets of bitflags: although the bit capacity of such 

13 a variable is crucial, the variable will never be interpreted as a 

14 signed or unsigned value. 
15 

16 3. All integer operations defined by the C language are valid on all of 

17 the portable types, and overflow/ underflow operations beyond 

18 the specified bit widths have predictable behaviour. 



19 */ 
20 

21 #endif // defined JTTPES DEFINED 

22 
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/* 



ETC: Global system definitions 
STATUS. H - global system statae 



*/ 
*/ 
V 
*/ 

V 



fifndef 
fdefine 



_STATUSJDEFINED 
STATUS DEFINED 



/* — - define status type — 

# define _stat uint 

/* define if_ xxx macros 



fdefine if_ret(s,e> if ( ( (s) - (e) ) !- ST_OK> return ((s)) 

# define if ^cleanup (s ,e,c) if ( ( (s) » (e)) !- ST_CK) return <<(c>, is))) 



/* - — define general status values — 

# define ST_OK 0 // successful operation 

/+ structures /tables manipulation */ 



#define ST_ALLOC 
#define ST_NO_ROOM 
# define ST_OVERFLOW 
fdefine STJJNDERTLOW 
fdefine ST~EMPTY 
fdefine ST~FULL 
#define ST~EOF 

/* vaichk */ 
# define ST_INVALID 
#define ST~BAJ)JVAX£E 
fdefine ST~COT~OF_RANGE 
# define STJNULL_PTR 
*define ST^BAD^SYNTAX 
#define ST~BAD^NAME 

/* BAD ^mxa */ 
fdefine STJUNEXPECTED 
fdefine ST~PAHIC 
fdefine STJDEADLOCK 

/* failures */ 
fdefine STJRETUSE 
fdefine ST~NOACTX0H 
fdefine STjniXSD 

/* state cheek */ 
fdefine ST_NOT_INITED 
fdefine STJTOTJICTIVE 
fdefine ST~NOTjOFEN 

/* i/o system •/ 
fdefine ST_IOERR 
fdefine ST~BAD_CHKSUM 

/* set-related */ 



20 // can't alloc (for variable size alloc/pool) 

21 // can't alloc fixed sz entry in fixed sz pool 

22 // value, buffer, whatever may overflow 

23 // value, buffer, counter, whatever may underflow 

24 // QUEUE /smth is empty - no elements 

25 // queue/smth is full 

26 // end of file 



30 // value not valid in operation context 

31 // value not valid in module's context 

32 // value out of range 

33 // NULL ptr is not valid in operation context 

34 // text/formatted data syntax error 

35 // name invalid in module's context 



40 // unexpected condition of parm or external object 

41 // unexpected condition of self or internal object 

42 // deadlock detected 



45 // oper rejected voluntarily (inappropriate state) 

46 // oper requires no action (eg close closed file) 

47 // operation failed / not successful 



50 // object is not initialized 

51 // oper allowed only when object is active 

52 // oper allowed only when object is open 



60 // I/O error - file system / peripherals error 

61 // wrong chksum 
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1 § define ST_NOT_FOUND 62 // requested item not found 

2 # define ST~DUpElCAIE 63 // duplicated item is not allowed 

3 

4 /* critical section / privileges 

5 fdefine ST_BUSY 70 // 

6 # define ST~ACCESS_DENIED 71 // 

7 fdefine ST~PRIVTLEGE 72 // 
S # define ST~SCOPE_VTOLATIQN 73 // 
9 # define ST~BAD ACCESS 74 // 

10 

11 /* operation status */ 

12 #define ST_PENDINO 

13 fdefine ST_TIMEOUT 

14 #define ST_CANCELLED 

15 # define ST~ABORTED 

16 # define STJIESET 

17 #def ine ST~CLEANUP 

18 fdefine ST~OVERRIDE 
19 

20 /* API */ 

21 fdefine ST_CANT_BXND 90 // can't bind / resolve name, handle, etc. 

22 fdefine ST_rPljERROR 91 // invalid function request, etc. 

23 fdefine ST^WRONG^VERSION 92 // incompatible version of data/code detected 

24 fdefine STJNOT^IMPLEMENTED 93 // feature not implemented 

23 fdefine ST NONSUPPORTED 94 // partial implementation; feature not supported 

26 

27 /* environment-specific */ 

28 fdefine STJBADJJID 100 

29 fdefine ST_BAD~HSG 101 

30 fdefine ST~GX CUT 102 

31 fdefine STJIOTJCNHERITED 103 

32 fdefine STJBADJPID 104 

33 fdefine ST~WIN_DFLT 210 

34 fdefine ST~BU>CX_aVERIttDE 300 

35 blocked 
36 

37 /* String table V 

38 

39 fifdef ERR STAT 
40 



41 struct STAT TXT S 

42 { 

43 « ** 

44 char *p; 

45 ) ; 
46 

47 fdefine DET STATUS (s) { (s) , fs ) 

48 

49 static struct STAT TXT S exr_sta tbl[] - 

50 ( 

51 OEFJSTATUS ( STjOK 

52 DETJJTATUS ( ST~ALLOC 

53 DETJSTATUS ( ST~NO_ROQM 

54 DEF_STATUS ( STjOVERTLOW 

55 DEF~STATUS ( STJOOTERTLOW 

56 DET~STATUS ( ST"EMPTY 

57 DETJSTATUS ( ST~FULL 

58 DET~STATUS ( STJBOF 

59 DET~STATUS ( ST~INVALID 
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*/ 

in critical section (dynamic, short period) 
temporary lack of access (dynamic, long period) 
privilege violation (static) 
(no comment) 

access type not appropriate / not possible 



80 // operation is pending 

81 // timeout has expired 

82 // operation cancelled on user's request 

83 // op. aborted on system/module's request 

84 // object has been orderly reset 

85 // object is about to be destroyed, now in cleanup 

86 // operation/entity was overriden 



// OBJ: invalid uid 

// OBJ: invalid msg or object doesn't handle it 
// OBJ: don't call more virt. objs; return STjQK 
// OBJ: method was abstract; needs to be inherited 
// OBJ: invalid pid 

// WIN:WindowProc: call DefWinProc , use its result 
// KER: attempt to block a thread that is already 
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1 DEF_STATUS ( ST_BAD_ VALUE 

2 DEF_STATUS ( ST^OUt"oF_RAMGE 

3 DEF_STATUS ( STJSnJlZjT* 

4 DEF~STATUS ( ST~BAD_SYOTAX 

5 DEF_STATUS ( ST~BAD~NAME 

6 DEF~STATUS ( ST~UNEXPECTED 

7 DEF~STATUS ( S TAPANI C 

8 DEF~STATUS ( S T~DEADLOCK 

9 DEF~STATUS ( ST~REFUSE 

10 DEF~STATUS ( ST~NO_ACTION 

11 DEF~STATUS ( ST^F AILED 

12 DEF~STATUS ( STNOT_INITED 

13 DEF~STATUS ( STJNOT^ACTTVE 

14 DEF~STATUS ( ST~NOT_OPEN 

15 DEF~STATUS ( ST~IOERR 

16 DEr"sTAOTS ( ST~BAD_CHK£UM 

17 DEFJSTAXUS ( STJNOT_FOUND 

18 DEr^STATUS ( STJDUPLICATE 

19 DEr^STATUS ( STJBUS* 

20 DEF~STATUS ( ST~ACCESS_DENIED 

21 DEFJSTAXUS ( ST~PRIVILEGE 

22 DEF_STATUS ( ST~SCOPE_VIOLATION. 

23 DEF~STATUS ( ST~BAD_ACCESS 

24 DEF~STATUS ( STIPEND ING 

25 DEF~STAXUS ( ST~TIMEOUT 

26 DEF~STATUS ( ST~CANCELLED 

27 DEF~STATUS < ST~ABORTED 

28 DEF~STATUS ( STORES ET 

29 DEF~STATUS ( ST^CLEANUP 

30 DEF~STATUS ( ST~OVERRIDE 

31 DEF~STATUS ( ST~CAOT_BIND 

32 DEF~STATUS ( ST~FPI_EBROR 

33 DEF~STATUS ( STjmONGJ/ERSION 

34 def"status ( st"not_implemehted 

35 def~status ( s t_not_supported 

36 det~status ( stjbadjoid 

37 defjstatus ( st^bad^msg 

38 def~staxus ( ST~OKjCUT 

39 DEF~STATUS ( S TJNOT_INHERI TED 

40 DEF~STATUS ( ST~BAD~PID 

41 DEF~STATUS ( ST~WIN~DFLT 

42 DEFJSTAXUS ( ST~BLOCK OVERRIDE 

43 ); 
44 



45 #endi* // _ERR STAT 

46 

47 

48 /* status codas 1000 and up are system- or modulo- specific +/ 

49 

50 #endi£ // STATUS DEFINED 

51 ~ 
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1 /• */ 

2 /* ETC: Global system definitions */ 

3 /* */ 

4 /* I FACE. H - Interface support */ 

5 /* */ 

6 /* Copyright (c) 1994-95 Object Dynamics Corp. All Rights Reserved. */ 

7 /* #/ 

8 

9 fifndef _IFACE_DEFINED 

10 # define ~IFACE~DE ViNED 
II 

12 /* type definitions — — — — — — — . . #/ 

13 

14 typedef uint iid; 
15 

16 fdefine NO IID 0 
17 

18 fdefine IID COMPAT <il ,i2) \ 



19 ((il) — (i2) II \ 

20 (il> — IID_I_POLy | | \ 

21 (i2) — IID"l"P0W ) 
22 

23 /* support macro definitions ------------ — --- -- */ 

24 

25 class COMPONENT ; // forward 
26 

27 class INTERFACE 

28 < 

29 public: 

30 const _iid iid; 

31 const COMPONENT * const objp; 
32 

33 public: 

34 _INTERFACE ( iid id, COMPONENT *op) : iid (id) , objp (op) ( } 
35 

36 protected: 

37 virtual -_INTERFACE (void) ( ) // (hack) - adds vtbX - simplifies ptr casts 

38 fdefine IFACE~OFFSET_pP0 1 // 1st operation starts at index 1 in vtbl 

39 ) ; // Keep in sync! 
40 

41 fdefine INTERFACE (i) \ 

42 class i : public INTERFACE \ 

43 { \ 

44 public t \ 

45 i (^COMPONENT *op) : ^INTERFACE (IID_ffi, op) ( } \ 

46 protected: \ 

47 i (void) : ^INTERFACE (0, NULL) ( ) \ 

48 i (ifi ir) : ^INTERFACE (0, NOLL) ( ) \ 

49 virtual -i (void) { ) 
50 

51 fdefine END_INTERFACE \ 

52 ) ; 
53 

54 fdefine CONSTANTS public: 

55 fdefine BUSES public: 

56 fdefine OPERATIONS public: 

57 fdefine METHODS public: 
58 

59 fdefine DEFINE BUS \ 
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1 struct BUS \ 

2 [ 
3 

4 Idefine BUS (x) \ 

5 struct x \ 

6 { 
7 

8 Idefine END BUS \ 

9 ) ; 
10 

11 # define INTERFACE_BUS <x) \ 

12 typedef x BOS ~ 
13 

14 Idefine DEFAULTS (x) \ 

15 BUS (void) { x; \ 
16 

17 Idefine BUS_DEFAULTS (b , x) \ 

18 b <void)~{ x; ) 

19 

20 Idefine FACTORY_DEFAULTS (x) \ 

21 FACTORY BUS (void) ( x; ) 
22 

23 Idefine OP(o) \ 

24 virtual stat o (BUS *bp) - 0 
25 

26 lendif // I FACE DEFINED 
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I_TERMINAL. H - Terminal control 
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iifndef _I_TERMINAL_DEFINED 
#daf ine ~I TERMINAL DEFINED 



BUS ( B_TERMINAL ) 

// terminal identification 



15 


char 


*namep 


// 


terminal 


name 


16 
17 
18 


uint 


name_sz; 


// 


size of i 


lame buffer 


// term 


inal information 








19 


uint 


type 


// 


terminal 


type (physical mechanism + direction) 


20 


uint32 


card ; 


// 


terminal 


cardinality 


21 


flglS 


attr 


// 


terminal 


attributes 



// connection data 
_iid iid 
INTERFACE *ip 



// terminal interface id (contract id) 
// v- table interface 



// connection identification 



_id32 

"component 

"id 



conn id 



link id 



// connection id (as defined by the terminal) 
// pointer to component ($$EV EVB, see notes) 
// link id <$$EV_EVB, see notes) 



END BUS 



♦define IID I TERMINAL 



INTERFACE (I TERMINAL) 



0x03 



/♦ 

CONSTANTS 
enum TYPE 
{ 

T_INPUT * 0 , 
T OUTPUT m 1, 

enum ATTR 

i 

ajstdsxq 
a"floatino 

f ; 



<1UL « 14) , // terminal for standard signal 
(1UL « 15) , // terminal is ok to be unconnected 



/♦ 

BUSES 

INTERFACE BUS ( B TERMINAL ) ; 



OPERATIONS 

OP ( acquire 
OP ( release 



) ; 
); 
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5 

6 

7 

8 
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14 
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19 
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21 
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28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
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OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 



( connect 
( disconnect 
( get_inf o 
( get__context 
( set__context 
( qry_open 
( qry_get_first 
( qry_ge t_l as t 
( qry_get_next 
( <J*Y_ge t_p rev 
( qryjget_curr 
( qry^cloae 



END INTERFACE 



/* declaration macro */ 

f define DECLARE I TERMINAL (c , 1 ) \ 



IDEP (c, 1, 


X_TERMXHAL) 




\ 


OPDECL ( 


acquire 


) ; 


\ 


OPDECL ( 


release 


) ; 


\ 


OPDECL ( 


connect 


) / 


\ 


OPDECL ( 


disconnect 


) ; 


\ 


OPDECL ( 


get^info 


) ; 


\ 


OPDECL ( 


get_context 


) ; 


\ 


OPDECL ( 


set_context 


) ; 


\ 


OPDECL ( 


qry_open 


); 


\ 


OPDECL ( 


qry_get_first 


) ; 


\ 


OPDECL ( 


qryjge t_las t 


) ; 


\ 


OPDECL ( 




) ; 


\ 


OPDECL ( 


qryjge t_prev 


); 


\ 


OPDECL ( 


qryjget_ curr 


); 


\ 


OPDECL ( 


qry_close 


); 


\ 


END IDEF 






\ 


/* allow for semicolon */ 




\ 



// 



typedef int c # I _DECLARE_I_TERMINAL_DUMM3f 

Descriptions : 



// on 
// in 
// 
// 
// 
// 
// 
// 
// 
// 
// 



out: 



act: 
s 



acquire 

namep - terminal na 

component on the other side 
link id 

if type is T_XNPUT - pointer to the terminal interface 
terminal type (X a _TERMXKAL: :Tjcxx) 
expected interface id 

connection id assigned for this connection 
acquire connection context 
ST_NOT_rOCND - terminal not found 
ST~NO ROOM - terminal cardinality exhausted 



link id 

(ip) " 
type 
iid 

conn id 



// 
// 
// 



on 
in 



release 
namep 



connected 

II 
II 
II 
II 



terminal name 

if type is T_OUTPUT 



interface to which the output was 



link id 



if type is T_INPUT - interface to release 

($$ may not be needed and in most cases can not be provided) 
component on the other side 
link id 
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18 
19 
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21 
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27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
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57 
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// 
// 
// 
// 
// 
// 

// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 



out 
act 
s 



on 
in 



out 
act 
s 



conn_id - connection id assigned by this terminal on acquire 
void 

release terminal 

ST_NO_ACTI ON - terminal was not connected 

(to /via specified interface or component) 
S T_NOT_FOUND - terminal not found 

connect 
namep 
type 
iid 
(ip) 

linx_id 
conn_id 
void 

connect terminal 

ST_RETUSE - interface mismatch 

ST NOT FOUND - terminal not found 



terminal na 
terminal type (I_TEBMXNAL: :T_xxx) 
expected interface id "~ 
if type is T_OUTPUT - interface to connect to 
component to connect to 
link id 

connection id assigned by this terminal on acquire 



(e.g. , unacceptable IID) 



on 
in 



II 
II 
II 

connected 

II 
II 
II 
II 
II 
II 
II 
It 
II 



disconnect 
namep 



- terminal m 

- if type is T_ OUTPUT - interface to which the output is 



if type is T_INFUT - interface to disconnect 

{$$ may not be needed and in most cases can not be provided) 

- component to disconnect from 

- link id 

connection id assigned by this terminal on acquire 



out 
act 
s 



// 
// 
// 
// 
// 
// 
// 
// 
// 
// 



on 
in : 
out: 



act: 
s 

nb : 



COIIIp 

linkJLd 
conn_id 
void 

disconnect terminal 

ST_NO_ACTXON - terminal was not connected 

(to/via specified interface or component) 

get_info 

namep - terminal name 

type - terminal type ( I_TERMINAL : : T_xxx ) 
iid - interface id of terminal 

card - terminal cardinality (static, not current) 
attr - terminal attributes 
return information about specified terminal 
ST_NOT_FQUND - terminal not found 

the information returned by this operation is not affected by 
the curren t state of the terminal 



// on 



on setjcontext 
not implemented 



// not impli 



// 
// 

// 
// 
// 
// 
// 
// 



getjeontext 



ted 



on 

in 

out 

act 

s 



qry_ open 

namep - query string 

ctx - query context for subsequent qry_xxx operations 

open query on terminal namespace 
ST_NO_RO0M - too many open queries 
ST BAD SYNTAX - bad query syntax 



// on qryjget^ first 
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// in : namep - buffer for name or HULL 
// (name_sz) - size of buffer, [bytes] 

// ctx - query context from previous qry_xxx operation 

// out: (* namep) - terminal name 

// ctx - query context for subsequent qry_xxx operation 

6 // act: get first matching terminal name 

7 //a ST NOTJFOUND - no matching terminals 
8 

9 //on q*y_get_ last 

10 // in : namep - buffer for name or NULL 

11 // <name_sz> - size of buffer, [bytes] 

12 // ctx - query context from previous qry_xxx operation 

13 // out: (* namep) - terminal name 

14 // ctx - query context for subsequent qry_xxx operation 

15 // act: get last matching terminal name 

16 // s : ST NOT FOTJND - no matching terminals 
17 

18 // on qry_get_next 

19 // in : namep - buffer for name or NULL 

20 // (name_sz) - size of buffer, [bytes] 

21 // ctx - query context from previous qry_xxx operation 

22 // out: (* namep) - terminal name 

23 // ctx - query context for subsequent qry_xxx operation 

24 // act: get next matching terminal name 

25 // s : ST NOT FOUND - no more matching terminals 

26 

27 //on qryjget^prev 

28 // in : namep - buffer for name or NULL 

29 // (namejsz) - size of buffer, [bytes] 

30 // ctx ~ - query context from previous qry_xxx operation 

31 // out: (+namep) - te rm i n al name 

32 // ctx - query context for subsequent qry_xxx operation 

33 // act: get previous matching terminal name 

34 // s ST NOT FOUND - no more matching terminals 

35 

36 // on qry_get_curr 

37 // in : namep - buffer for name or NULL 

38 // (name_sz) - size of buffer, [bytes] 

39 // ctx - query context from previous qry_xxx operation 

40 // out:(*namep) - terminal name 

41 // act: get current terminal name in query 

42 // nb : ctx is unchanged 

43 

44 //on qry_eloae 

45 // in : ctx" - query context from qry_open or another qry_xxx operation 

46 // out: void 

47 // act: close query on terminal name space 
48 

49 // $$EV EVB — fields used by the event bus terminal interface 

50 // Note: comp in the bus is provided for use by connectivity components only. 

51 // it should not be used by regular components £ assemblies. 

52 // comp contains pointer identifying the component at the other side 

53 // of the link* 

54 // Both linx_id and comp may be used for identification of the particular 

55 // connection on a terminal. They should not be interpreted in any way 

56 // nor the comp should be dereferenced. Sometimes the ip field on 

57 // disconnect and release may be used for connection identification, too. 
58 

59 // Note: the assembly manager (dflt assembly implementation) does not store 
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1 // the connection id — so it nay not be provided on disconnect /release 

2 

3 II Mote: $$ on disconnect ip may not be provided in many cases: 

4 // a) when output array is connected to input array 

5 // b) when assy output is connected to input array 

6 // In both examples above the input ptr cannot be obtained from the output 

7 // and therefore cannot be passed on input's disconnect. 

8 // (Generally i none of the existing parts uses ip for identification) 

9 

10 #endif // I TERMINAL DEFINED 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 



IFC: Project Interfaces 
I_PROP.H - Property 
Copyright (c) 1994-95 Object Dynamics Corp. All Rights Reserved. 



V 
•/ 

V 

*/ 
*/ 

*/ 



Jfifndef 
Udefine 



FROP_DEFINED 
PROP DEFINED 



/* .type values */ 

#define PTJJSER 0 

« define PT_INT 1 

fl define PTJJINT 2 

Sdefine PT_CHAR 3 

fldefine PTJJPCHAR 4 

#define PT~STRING 5 

# define PTJNAME 6 

#define PT_DATA 7 

#def ine PT NONE 8 



BUS ( B PROP ) 



// user defined 

// signed int 

// unsigned int 

// uchax 

// upcaseduchar 

// asciiz, no multiple spaces 

// upcased STRING 

// data string (Oxlb^-O*, etc. 

// 1st invalid value of .type 



char 


*namep 


size_t 


Harness z 


uint32 


type" 


void 


*P 


size_t 


sz 


size_t 


len 


ctx~" 


ctx 



END__BUS 

#define IID_I_PROP 
INTERFACE (I PROP) 



0x02 



/* 

CONSTANTS 



/* 

BUSES 

INTERFACE BUS ( B PROP ) ; 



/* 

OPERATIONS 

OP ( get 
OP ( set 
OP ( chx 
OP ( get_ 
OP ( qry_ 
OP ( qry_ 
OP ( qry_ 
OP ( qry_ 
OP ( qry_ 
OP ( qry 



info 
open 

get_first 

get_last 

getjaext 

get_prev 

getjcuxr 
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OP ( qry_close 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 
39 

40 

41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 



END INTERFACE 



/* declaration macro */ 



7 


# define DECLARE I PROP(c,l) 




\ 


8 


IDEE* <c, 1, 


I_PROP) 




\ 


9 


OPDECL 


( 


got 




\ 


10 


OPDECL 


( 


set 


f i 


\ 


11 


OPDECL 


( 


chk 


f 9 


\ 


12 


OPDECL 


( 


get_ info 


r * 


\ 


13 


OPDECL 


( 


qry_open 


1 * 


\ 


14 


OPDECL 


( 


qry_get_ first 


/ / 


\ 


15 


OPDECL 


( 


qry get_last 


) 0 


\ 


16 


OPDECL 


( 


qry_ge t_ nex t 


) t 


\ 


17 


OPDECL 


( 


qry_get_prev 


) * 


\ 


18 


OPDECL 


( 


qry jge t_curr 


J * 


\ 


19 


OPDECL 


( 


qry_close 


} s 


\ 


20 


END IDEF 








\ 


21 


/* allow for semicolon */ 




\ 



typedef int c# #_ljf # JDECIJtf*E_I_PROP_DUMMY 
Descriptions 



// 


note: 


on get, 


set and chk - if value type is specified and it doesn 1 1 match 


the 






// 




internal type of the property, the component may (implementation- 


defined) 






// 




convert 


the value to the appropriate type; 


// 


on 


get 




// 


in : 


namep 


- property name 


// 




P 


- buffer for value or NULL 


// 




,<az> 


- size of buffer (if p not NULL) , [bytes] 


// 




type 


- requested type or IP_NONE for any 


// 


out: ( 


*P> 


- value 


// 




len 


- value length (for both fixed & vai size types) , [bytes] 


// 




type 


- property type 


// 


act: 


get property value 


// 


s 


ST BAD 


NAME - property name not found 


// 




ST OVERFLOW - buffer too small 


// 




ST~REFUSE - incorrect type 


// 




ST_BAD_ 


ACCESS - property is write- only 


// 


on 


set 




// 


in : 


namep 


- property name 


// 




P ' 


- buffer for value or NULL to clear 


// 




(len) 


- size of value (for var size values) , [bytes] 


// 




type 


- type or IP_NONE if not known 


// 


out: 


void 




// 


act: 


set property value 


// 


s : 


ST_BAD_ 


NAME - property name not found 


// 




st"bad" 


~VALUE - bad property value 


// 




ST OVERFLOW - value too long 


// 




ST~REFUSE - incorrect type 


// 




ST_BAD_ 


ACCESS - property is read-only 


// 


on 


chk 
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out 
act 

5 



// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 



// on 
// in : 
// out: 
act; 
s : 



- property name 

- buffer for value or NULL to clear 

- size of value (for var size values) , [bytes] 

- value type or IP_N0NE if not known 



naaep 
P 

den) 
type 
void 

check if property may be set to value (valchk) 



If 
II 

II nb : 
II 

II on 
// in 
// out 
// act 
// s 
II 

II on 
// in 
II 
II 

II out 

II 

II act: 
// s : 

// on 
// in : 
II 
II 

II out: 
II 
II 
II 



ST_BAD_NAME 
ST_BADJVALOE 
ST~OVERFLOW 
ST_REFUSE 
ST~BAD ACCESS 



property name not found 

- bad property value 

- value too long 

- incorrect type 

- property is read-only 



act: 
s 



// on 

// in : 
// 
// 

// out: 
// 
// 
// 



act: 
s 



// on 
// in 
// 
// 



get_info 

naaep - property name 
type - property type 

get information about specified property 
ST BAD NAME - property name not found 

the information returned by this operation is not affected by 
the current value of the property 

qry_open 

namep - query string 

ctx - query context for subsequent qry_xxx operations 

open query on property space 

ST NO ROOM - too many open queries 

ST~BAD_ SYNTAX - bad query syntax 

qryjge t_f irs t 

namep ~~ - buffer for name or NULL 
(name_sz) - size of buffer, [bytes] 

ctx - query context from previous qry_xxx operation 

(•namep) - property name 

ctx - query context for subsequent qry_xxx operation 

get first matching property name 

ST NOT FOUND - no matching properties 

qry_get_last 

namep - buffer for name or NULL 
(name_sz> - size of buffer, [bytes] 

ctx - query context from previous qry_xxx operation 

(•namep) - property name 
ctx - query context for subsequent qry_ xxx operation 

get last matching property name 
ST NOT FOUND - no matching properties 

qtyjet^ next 

namep ~" - buffer for name or NULL 
(name__sz) - size of buffer, [bytes] 

ctx ~" - query context from previous qry_xxx operation 
(•namep) - property name 
ctx - query context for subsequent qry_ xxx operation 

get next matching property name 
ST NOT FOUND - no more matching properties 

qryjget_prev 

namep - buffer for name or NULL 
(name_sz) - size of buffer, [bytes] 

ctx ~ - query context from previous qry_xxx operation 
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1 // out: (•namep) - property name 

2 // ctx - query context for subsequent qry xxx operation 

3 // act: get previous matching property name 

4 // s : STJNOT_FOTND - no more matching properties 

5 " 

6 / / on qry_ge t_curr 

7 // in : namep - buffer for name or NULL 

8 // (name_sz) - size of buffer, [bytes) 

9 // ctx - query context from previous qry xxx operation 
0 // out: (* namep) - property name "~ 

// act: get current property name in query 

// nb : ctx is unchanged 



// on qry_close 

// in : ctx - query context from qry_open or another qry xxx operation 

// out: void " " 

// act: close query on property space 

lendif // I PROP DEFINED 
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1 /* / 

2 /* IFC: Project Interfaces */ 

3 /* */ 

4 /* I_FACTORY . H - Component creation / destruction */ 

5 /* • / 

6 /* Copyright (c) 1994-95 Object Dynamics Corp. All Rights Reserved. */ 

7 / */ 



8 

9 iifndef _I_FACTORY_DEFINED 

10 # define ~IJTACTORY_DEFINED 
11 
12 

13 #define XID I FACTORY 0x01 
14 

15 INTERFACE <I FACTORY) 



16 

17 /* V 

18 CONSTANTS 

19 enum 

20 { 

21 A_PRIMARY - (1UL « 14) , // create primary object (factory) 

22 A_NO_ALLOC * (1UL « 13), // don't call new to alloc memory 

23 a"gqTERIC » (1UL « 12) , // generic factory bus (no ext. data) 

24 ) ; 
25 

26 /* */ 

27 BUSES 

28 DEFINE_BUS 

29 flg32 attr; // factory attributes 

30 COMPONENT *objp; // ptr to component or memory 

31 "INTERFACE *tennp; // terminal interface 

32 "INTERFACE *propp; // property interface 

33 ctx ctx ; // creation context or NO_CTX 

34 ENDJBUS 
35 

36 /* */ 

37 OPERATIONS 

38 OP ( create jiflts ) ; 

39 OP < create"" ) ; 

40 OP < destroy ) ; 

41 OP ( getjpaxt ifc ) ; 
42 



43 Q1D INTERFACE 

44 " 

45 /* declaration macro */ 
46 

47 #define DECLARE_I_FACTORY ( c , 1 ) \ 

48 IDEF (c, 1, ^FACTORY) \ 

49 OPOECL (create ) ; \ 

50 OPDECL (createjdflts ) ; \ 

51 OPDECL (destroy ) ; \ 

52 OPDECL (getj>art_ifc ) ; \ 

53 END_IDEP " \ 

54 /* allow for semicolon */ \ 

55 typedef int c«# 1 #t DECLARE_I_FACTORY_DUMMY 
56 

57 /* Descriptions - 

58 

59 // on create dflts 



(struct BUS or derived) 
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1 // in : void 

2 // out: attr - default attributes 

3 // objp - NULL 

4 // act: fill FACTORYJBUS with defaults 

5 " 

6 //on create (struct BUS or derived) 

7 // in : attr - object attributes (A_xxx) 

8 // (objp) - ptr to allocated memory for object instance (if A_NO_ALLOC) 

9 // ctx - additional context or NO_CTX "~ 

10 // out: objp - ptr to new object 

11 // temp - pointer to the terminal interface of the part 

12 // propp - pointer to the property interface of the part 

13 // act: create new object 

14 // nb : if A_GQIERIC is set, then the bus passed is strictly I_FACTORY : : BOS and 

15 // not a derived one. 

16 // nb : ctx«*NO_CTX is always accepted; some components may allow additional 

17 // parameters in/ through this field 
18 

19 //on destroy (struct BUS or derived) 

20 // in : void 

21 // out: void 

22 // act: destroy object 

23 

24 // on get_part_ifc (struct BUS or derived) 

25 // in : void 

26 // out: termp - pointer to the terminal interface of the part 

27 // pxopp - pointer to the property interface of the part 

28 // act: return part interfaces 

29 

30 #endif // I FACTORY DEFINED 
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1 /* — 

2 /* CLP: Collections Parts 

3 /♦ 

4 /* CP_BBA.CPP - Bag on Byte Array 

5 /* 

6 /* Copyright (c) 1993-1994 Object Dynamics Corp. All Rights Reserved. 

7 /* - 

8 

9 # include <rtx_pre . h> 

10 lindude <stddef .h> 

11 lindude <stdlib.h> 

12 lindude <memory .h> 

13 # include <rtx_post.h> 
14 

15 # include <rtx.h> 

16 # include <asm.h> 

17 # include <thp,h> 
13 

19 # include <iface.h> 

20 lindude <part.h> 
21 

22 lindude <i_f actor. h> 

23 lindude <i_prop.h> 

24 lindude <ijdrain.h> 

25 lindude <i"bag.h> 

26 lindude <i_ agm.h> 

27 lindude <i~bytear.h> 
28 

29 /* Definitions 

30 

31 struct CP BBA_ENTR3f HDR 

32 { 

33 enum ATTR 

34 { 

35 AJ/ALID - VALID, 

36 A~FREE - FREE, 

37 A~KILL£D - KILLED , 

38 )7 
39 

40 flg32 attr; // attributes (AJVALID, A_FREE, AJULLED] 

41 uint32 card; // cardinality " 

42 ); 
43 

44 /** Component Definition — 

45 
46 

47 I define CP BBA NAME "CP BBA" 
48 

49 PART ( CP BBA ) 

50 

51 /• 

52 BUSES 

53 DEFAULT FACTORY BUS ( CP_BBA ) ; 
54 

55 /* 

56 INPUTS 

57 IDECL ( CP_BBA , factory , I_rACTORY ) ; 

58 IDECL ( CP_BBA , term , I_TEBMINAL ) ; 

59 IDECL ( CP~BBA , prop , I_PROP ) ; 
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1 IDECL ( CP BBA , bag , I_BAG ) ; 

2 

3 IDECL RST (CP_BBA) ; 

4 

5 OUTPUTS 

6 ODECL ( CP_BBS , arr , I BYTEARR ) ; 
7 

8 

9 END PART // CP BBA 
10 

It iifdef BXT32 

12 # define hmemcpy memcpy 

13 # define HUGE 

14 tfelse 

15 Idefine HUGE huge 

16 lendif 
17 

18 /* Definitions 

19 

20 #define AGM_CHUNK 1024 
21 

22 BEGIN_SELF ( CP BBA ) 

23 // data 

24 uint32 n_ entries ; // number of entries 

25 void *buffp; // buffer for one entry 

26 uint32 buff si; // buffer size (dep. on data sz) 
27 

28 // properties 

29 uint32 data_sz; // data size 

30 uint32 key_sz; // key size 

31 uint32 key_off ; // key offset 

32 char name [64] ; 

33 END SELF 

34 ~~ 

35 BEGIN_CLASS_DATA ( CP_BBA ) 

36 uintl6 instance_counter ; // ... 

37 END CLASS DATA ~* 
38 

39 /* Interface declarations 

40 

41 DECLARE_I_FACTORS ( CPJBBA, factory ) ; 

42 DECLARE^IJTERMIKAL ( CP~BBA, term ) ; 

43 DECLARE~I~PROP * CP~BBA, prop ) ; 

44 DECLARE~I~BAG ( CP~BBA, bag ) ; 

45 ~ 

46 DECLARE RST (CP_BBA) ; 
47 

48 /* I/O tables 

49 

50 IOTTJT_TABLE 

51 INPUT (CP_BBA, prop # I_PROP ) 

52 INPUT (CP BBA, bag , I~BAG ) 
53 

54 INFUT_RST (CP_BBA) 

55 END INPUT TABLE " 

56 

57 OU TPUT_TABLE 

58 OUTPU T (CP BBA, arr , IJBYTEARR ) 
59 
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1 END_OUTPUT TABLE 

2 

3 /* Constanta & tables 

4 

5 PROPERTIES 

6 /* type name base field min max */ 
7 

8 PROPJTCNT ("DATA^SIZE" , SELF, data sz , 1 , 1024 ) 

9 PROPJ7INT ("XEYJJIZE* , SELF, key Iz , 1 , i0 24 )' 

10 PROPJJINT ( " K£Y_OFFSET w , SELF, key'off , 0 , 1023 )' 

11 " 

12 PROP_STRING ("name" , SELF, name ,0 ,64 ) 

13 END_FROPERTIES 
14 

15 /* I nit / Cleanup 

16 

17 INIT (CF_BBA) 

18 { 

19 /** init class data */ 

20 cp->instanee counter « 0; • 

21 

22 REGISTER (CPJBBA) ; 

23 

24 return (STJ3K) ; 

25 I /* INIT TCP BBA) */ 

26 

27 CLEANUP (CP_BBA) 

28 { 

29 OEREGISTER (CP BBA) ; 
30 

31 return (ST_QX) ; 

32 ) /* CLEANUP (CP_BBA) */ 

33 

34 /* Constructors — 

35 

36 DEFAULT_PART CONSTRUCTORS (CP BBA) ; 

37 
38 

39 /* - — Operations: factory — — # 

40 

4 1 DEFAULT_PART_FACTOICr ( CPJBBA , factory ) ; 

42 DEFAULT~PART~TERMINAL (CPJBBA, term ) ; 

43 DEFAULt"pARt"pROP (CP~BBA, prop ) ; 

44 ~ 

45 /* — - Operations — 

46 

47 METHOD (CP BBA, create dflts , FACTORS BUS) 

48 { 
49 

50 II ... 

51 

52 return (ST_OK) ; 

53 } END METHOD /* CP BBA, create dflts */ 
54 

55 METHOD (C?_BBA, create , FACTORY BUS) 

56 { 

57 stat s; 
58 

59 /** valchk */ 
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1 if (bp «- NULL) return (ST NULL_PTR) ; 

2 

3 /** open interfaces */ 

4 OPEN_IOTERFACE (CP_BBA, factory ) ; 

5 if (bp->attr & I_FACTORY : : A_PRIMARX ) return <ST OK); // valid primary obi 

6 OPEN_INTERFACE ( CP_BBA , term ) ; " 

7 OPEN~INTERFACE ( CP_BBA , prop ) ; 

8 OPEN~INTERFACE (CP_BBA, bag ) ; 

9 OPEN~RST (CP~BBA) ; 
10 

11 /** init self */ 

12 sp->n_en tries ■ 0 ; 

13 sp->buffp « NULL; 

14 sp->buff_sz «■ 0; 

15 sp->data_sz ■» 2; 

16 sp->key_sz - 2; 

17 sp->key off =» 0; 
18 

19 /** internal reset */ 

20 (void) call (sp->thisp->iRST, raise, NULL); 
21 

22 /** special processing for default name */ 

23 os con sprintf <sp->name, "%.50s%d n , CP_BBA_NAME, ++ (cp->instance counter)) 
24 

25 return (ST_OX) ; 

26 } END METHOD /* CP BBA, create */ 

27 

28 METHOD (CP BBA, destroy, FACTORY BUS) 

29 { 

30 /** close interfaces */ 

31 CLOSE_INTERTACE (CPJBBA, factory ) ; 

32 CLOSE~INTERTACE (CP~BBA, term ) ; 

33 CLOSE_INTERFACE (CP~BBA, prop ) ; 

34 CLOSE~INTERFACE (CP^BBA, bag ) ; 

35 CLOSE_RST (CP BBA) ; 
36 

37 /** free entry buffer */ 

38 if (sp->buffp != NULL) (void)os smp free (sp->buffp) ; 

39 

40 /** init self */ 

41 sp->n_en tries ■ 0; 

42 sp->buffp - NULL; 

43 sp->buff_jsz m 0; 

44 ap->data~"sz - 2; 
45 

46 return (STjGK) ; 

47 ) END METHOD /* CP BBA, destroy */ 
48 

49 /* Operations: bag 

50 

51 OPERATION ( CP BBA, bag, add ) 

52 ( 

53 I__BYTEARR: :BUS ab; 

54 uint32 i; 

55 CP_BBA_ENTRX_HDR *hdrp; 

56 byte " *datap; 

57 stat s ; 
58 

59 /** valchk ♦/ 
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1 if (bp — NULL) return (ST_NULL_PTR) ; 

2 if (bp-Xlatap «- NULL) return (ST INVALID) ; 

3 

4 /** internal init */ 

5 hdxp * ( CP_BBA_ENTRY_HDR *) sp->buf fp; 

6 da tap » (byte *)sp->buffp + sizeof (*hdrp) ; 
7 

g /** lookup V 

9 for (i ■ 0; i < sp->n entries; i++) 

10 < 

11 /** read entry */ 

12 ab.p ■ sp->buffp; 

13 ab.sz « sp->buff_sz; 

14 ab.poa = i * sp->buff_sz; 

15 ab.len - sp- >buff_ sz; 

16 ab.attr - I_BYTEABR: :A_EXACT; 

17 a « out (arr, read, £ab) ; 

18 if (a «=» STJBOF) return (STJ7NEXPECTED) ; 

19 if ret (a, a) ; 
20 

21 /** skip if empty */ 

22 if ( (hdrp->attr CP_BBA_ENTRY_HDR : :A_TREE) || 

23 (hdrp->attr — CP BBA ENTRY HDR: :A_XILLED) ) continue; 
24 

25 /** akip if different */ 

26 if (merncrnp ((void *) (da tap + sp->key_off) , 

27 (void *)((byte *)bp->datap + sp->key_off ) , 

28 sp->key sz) !« 0) continue; 
29 

30 /** sanity chk */ 

31 if (hdrp->caxd -» 0) return (ST UNEXPECTED); 
32 

33 /** increment cardinality */ 

34 if (hdrp->caxd < MAXUINT32 - 1) (hdrp->card) ♦+ ; 

35 else return (ST_OVERTLOW) ; 

36 

37 /** write back header only */ 

38 ab.p ■ hdrp; 

39 ab.len - sizeof (*hdrp) ; 

40 ab.poa - i ♦ sp->buff_sz; 

41 ab.attr - 0; " 

42 a - out (arr, write, tab) ; 

43 if (a — STjOVERFLOW ) return (STJ7NEXPECTED) ; 

44 if ret (s, a) ; 
45 

46 /** paaa cardinality */ 

47 bp->caxd ■ hdrp->card; 

48 

49 /** return */ 

50 return (ST OK) ; 

51 } // for 
52 

53 /** add V 

54 for (i « 0; i < ap->n entries; i++) 

55 < 

56 /*• read entry */ 

57 ab.p o ap->buffp; 

58 ab.sz = ap->buf£_ax; 

59 ab.poa - i * sp->buff_sz; 
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1 ab.len - sp->buff_sz; 

2 ab.attx « IJBYTEARR: :A_EXACT; 

3 s ■ oat (arr, read, tab) ; 

4 if (s = STJSOF) return (ST_UNEXPECTED) ; 

5 if ret is, s) ; 
6 

7 /** write if eim?ty */ 

8 if ( (hdrp->attr «= CP_BBA_ENTK3f HDR: :A FREE) !- 0) 

9 { 

10 /** init header */ 

11 hdrp->card - 1; 

12 hdrp->attr - CP_BBA_ENTRY_HDR: :A_VALID; 

13 

14 /** init data */ 

15 aemcpy ((void *) datap , bp->datap, sp->data sz) ; 
16 

17 /** write header and data */ 

18 ab.p a sp->buffp; 

19 ab.len - sp->buff_sz; 

20 ab.pos = i * sp->buff_sz; 

21 ab.attr - 0; " 

22 s « out (arr, write, £ab) ; 

23 if (s — ST_OVERFLOW) return (STJDNHCPECTED) ; 

24 if ret (s , s) ; 
25 

26 /** pass cardinality */ 

27 bp->card = hdrp->card; 
28 

29 /** return */ 

30 return (ST_0X) ; 

31 > 

32 ) // for 

33 

34 /** chk for overflow */ 

35 if (sp->n entries >- MAXUINT32 - 1) return (ST No' ROOM) ; 

36 

37 /** init header */ 

38 hdrp->card * 1; 

39 hdrp->attr - CP_BBA_ENTRX_KDR : : A_VALID ; 

40 

41 /** init data */ 

42 mexncpy ((void * ) da tap , bp->datap, 5p->data_sz) ; 

43 

44 /♦* append */ 

45 ab.p m sp->bu£fp; 

46 ab.len ■ sp->touff_sz; 

47 ab.pos » sp->nje n tries * sp->buff_sz; 

48 ab.attx - I_BnEARR : : A_GROW ; " 

49 s - out (arr, write, fiab) ; 

50 if (s — ST_OVERFLOW) return (STJUNE3CPECTED) ; 

51 if ret (s, s); 
52 

53 /*♦ increment number of entries »/ 

54 (sp->n entries )++; 
55 

56 /** pass cardinality */ 

57 bp->card - hdrp->card; 
58 

59 return (ST_GK) ; 
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1 ) END OPERATION /* bag, add */ 
2 

3 // TO DO: other operation o£ I_BAG to be implemented here- 
4 

5 /* Signals 

6 

7 SIGNAL RST ( CP BBA ) 

8 { 

9 I_AGM::BUS ab; 
10 stat s; 
U 

12 /** free entry buffer */ 

13 if (sp->bu£fp !« NULL) (void) os_ smp_f ree (sp->buffp) ; 
14 

15 /** init self */ 

16 sp- >n_en tries - 0 ; 

17 sp->buffp =* NULL; 

IS sp->buff sz = sizeof (CP BBA ENTRY HDR) + max (sp->data sz f X) 
& 19 " " " 

ijj 20 /** alloc entry buffer */ 

0 21 if ret (s, os smp_alloc (sp->buf f_sz , £ (sp->buf fp) ) ) ; 

jS- 22 

23 return (ST_OK) ; 

! ^ 24 ) END_SIGNAL /* RST */ 

HI 25 

26 



I** 

111 

I 
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I 








2 


/* 




EVP: Event Flow Parts 


3 


/* 




4 

5 


/* 
/♦ 




EV PCN.CPP - POLY T-Connector 


6 
7 


/* Copyright (c) 


1994*95 Object Dvnamir* Cesws ail n « —v. _ n , 
*»*j«5v-»- wynamca worp . axx Rights Reserved. 


3 


/* Version 1.10 




9 








10 








11 


# include 


<rtx_pre . h> 




12 


# include 


<atdde£ .h> 




13 


# include 


<stdlib.h> 




14 


# include 


<rtxj>oat.h> 




15 






16 


# include 


<rtx.h> 




17 


# include 


<asm.h> 




18 








19 


# include 


<ixace . h> 




20 


# include 


<part.h> 




21 


% include 


<assenbly . h> 




22 










# include 


<i_f actor . h> 




24 


# include 


<i_prop.h> 




25 


# include 


<i_tenn. h> 




26 


#include 


<i~drain.h> 






# include 


<i_poly.h> 




28 






29 


# define EV PCN NAME " 


EVJPCH" 


30 








31 


ASSEMBLY 


(EVJPCN) 




32 








33 








34 


BUSES 






35 


DEFAULT FACTORY 


BUS (EV PCN) ; 


36 








37 








38 


INPUTS 




39 


IDECL ( EV_PCN , 


factorv , I FACTORY \ • 


40 


IDECL ( EV~PCN , 


term , I TERMINAL ) ; 


41 


IDECL ( EV~POI , 


termi . I terminal. \ • 


42 


IDECL ( EV~PCN , 


prop . I prop \ * 


43 


IDECL ( EV_PCN , 


propi . I PROP ) • 


44 


IDECL ( EV"PCN , 


in , I_POLY ) ; 


45 








46 


OUTPUTS 




47 


ODECL ( EV_PCN , 


out , I POLY ) ; 


48 


ODECL ( EV PCN , 


aux . I~DRAIN \ * 


49 








50 








51 


END ASSEMBLY 




52 








53 








54 






55 








56 


BEGIN SELF (EV PCN) 




57 








58 


DEFAULT ASM SELF; 




59 
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45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 



/* group properties */ 
uint32 ev_id_tain ; 

uint32 ev_id_max ; 

END_SELF 

BEGI N_CLAS S_D ATA <EV_PCN) 

// none 
END__CLAS S_D ATA 

DECLARE_ASM (EV_PCN) ; 

/* I/O tables 

INFUT_TABLE 

INPUT (EV_PCN, prop 

INPUT (EV_PCN, in 

END_INPUT_TABLE " 

OUTPUT_TABLE 

OUTPUT_I (EV_PCN , out 
OUTPUT_I (EV_PCN, aux 

ENDJDUTPUTJIABLE 

/* — - Constants £ tables - 



IJPROP 
I~POLY 



I_POLY ) 
I DRAIN ) 



ASM_PARTS 

NEWJPART ( p2d, EV_P2D ) 
NEW_PART ( ten, EVJTCN ) 
NEW~PART ( d2p, EVJD2P ) 

END_ASMJ?ARTS " 

ASM_PARAMETRIZATION 

// none 
END_ASM_PARAMETRI£ATION 

ASM LINKS 



38 


// 




from 


output 


to input 




39 














40 


LINK 


( 




in 


, p2d, in 


) 


41 


LINK 


( 


p2d, 


out 


, ten, in 


) 


42 


LINK 


< 


tea, 


out 


, d2p, in 


) 


43 


LINK 


( 


d2p, 


out 


, * / out 


) 


44 


LINK 


( 


ten, 


aux 


, * , aux 


) 



EOT_ASM_LINKS 

ASM_PROPERTY_GROUP ( ev_id_minjgroup ) 

ASM_PROpJlEMBER ( tea 7 OUT.EV_ID_MIN ) 
ASM~PROP~MEMBER ( ten , AUX.EV~ID~MIN ) 

END_ASM_PROPER3T_GROUP " " 

ASM_PROPERXT_GROUP ( ev_idjnax_group ) 

ASM_PROP_KEMBER ( ten 7 OUT.EV_ID_MAX ) 
ASM~PROP~MEMBER ( ten , AUX.EV_ID_MAX ) 

END ASM PROPERTY GROUP 



ASM_PROPERXIES 

ASM PROP ALIAS 



( OUT. INVERT 



ten , OUT. INVERT 
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6 
7 
8 
9 
10 



ASM_PROP_ALXAS ( AUX . INVERT 

ASM_PROP_GROOT ( EV_ID_MIN 

ASM~PROP_GROUP ( EV_IDJ4AX 
END ASM PROPERTIES ~" " 



ten , AUX. INVERT 

ev_id_min_group 
e v_i d_max_group 



ASM_GRO0P_PROP£RTY_DESC 
/* type 



base field 



min 



PROPJJINT ("EV^ID^MIN" , SELF, ev_id_min , MINUINT32 , MAXUINT32 ) , 
PROP_UINT ( B EV_ID_MAX n , SELF, evjidjnax , MINUINT32 , MAXUIOT32 ) \ 



END_ASMJ3R0UP_PROPERTy_DESC 
DEFAULT ASH (EV PCN) ; 
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1 

2 


/• 






/• 






irC: Project Interfaces 


3 


/* 






4 


/• 






I_POLX.H - Polymorphic 


5 


/* 






6 


/* 


Copyright (c) 1994-95 Object Dynamics Corp. All Rights Reserved. 


7 


/* 






8 








9 


Hifndex" _I_POLx_DETINED 


10 


idefine ~I~POLY~DETCNED 


11 








12 


fdefine XID 


XJMU 0x04 


13 








14 


INTERFACE (Z 


_POLX) 


15 








16 
17 










CONSTANTS 


18 








19 
20 










BUSES 




21 




DEFINE BUS 


22 




// 


none 


23 




END_ 


BUS 


24 








25 
20 










OPERATIONS 


27 




OP ( 


opO ) 




28 




OP < 


opl ) 




29 




OP ( 


op2 ) 




30 




OP ( 


op3 ) 




31 




OP < 


op4 ) 




32 




OP < 


opS ) 




33 




OP ( 


op6 ) 




34 




OP ( 


op 7 ) 




35 




OP ( 


op8 ) 




36 




OP ( 


op9 ) t 




37 




OP ( 


oplO ) 




38 




OP ( 


opll ) 




39 




OP < 


opl2 ) , 




40 




OP < 


opl3 ) , 




41 




OP < 


op 14 ) 




42 
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33 END INTERFACE 
34 

35 /+ declaration macro */ 

36 



37 Idefine DECLARS_I_POL* (e, 1) \ 

38 IDE7 <c, 1, T_POLX) \ 

39 OPDECL ( opO ) ; \ 

40 OPDECL ( opl ) ; \ 

41 OPDECL ( op2 ) ; \ 

42 OPDECL ( op3 ) ; \ 

43 OPDECL ( op4 ) ; \ 

44 OPDECL < opS ) ; \ 

45 OPDECL ( op€ ) ; \ 

46 OPDECL ( op7 ) ; \ 

47 OPDECL ( op8 ) ; \ 

48 OPDECL ( op* ) ; \ 

49 OPDECL ( oplO ) ; \ 

50 OPDECL ( op 11 ) ; \ 

51 OPDECL ( opl2 ) ; \ 

52 OPDECL ( opl3 ) ; \ 

53 OPDECL ( op!4 ) ; \ 

54 OPDECL ( oplS ) ; \ 

55 OPDECL ( opl6 ) ; \ 

56 OPDECL ( opl7 ) ; \ 

57 OPDECL ( opl8 ) ; \ 

58 OPDECL ( opl9 ) ; \ 

59 OPDECL ( op20 ) ; \ 
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1 OPDECL ( op21 ) ; \ 

2 OPDECL ( cp22 ) ; \ 

3 OPDECL ( op23 ) ; \ 

4 OPDECL ( op24 ) ; \ 

5 OPDECL ( op25 ) ; \ 

6 OPDECL ( op26 ) ; \ 

7 OPDECL ( op27 ) ; \ 

8 OPDECL ( op28 ) ; \ 

9 OPDECL ( op29 ) ; \ 

10 OPDECL ( op30 ) ; \ 

11 OPDECL ( op31 ) ; \ 

12 OPDECL ( op32 ) ; \ 

13 OPDECL ( op33 ) ; \ 

14 OPDECL ( op34 ) ; \ 

15 OPDECL ( op35 ) ; \ 

16 OPDECL ( op 3 6 ) ; \ 

17 OPDECL ( op37 ) ; \ 

18 OPDECL ( op38 ) ; \ 
fa 19 OPDECL ( op39 ) ; \ 
l£ 20 OPDECL ( op40 ) ; \ 

21 OPDECL ( op41 ) ; \ 

jj£ 22 OPDECL ( op42 ) ; \ 

& 23 OPDECL ( op43 ) ; \ 

Hj 24 OPDECL ( op 4 4 ) ; \ 

ill 25 OPDECL ( op45 ) ; \ 

[k 26 OPDECL ( op46 ) ; \ 

;*t 27 OPDECL ( op47 ) ; \ 

*" 4 28 OPDECL ( op48 ) ; \ 

^ 29 OPDECL ( op49 ) ; \ 

0 30 OPDECL ( op50 ) ; \ 

y : j 31 OPDECL ( op51 ) ; \ 

iS 32 OPDECL ( op52 ) ; \ 

33 OPDECL ( op53 ) ; \ 

M 34 OPDECL ( op54 ) ; \ 

N 35 OPDECL ( opSS ) ; \ 

i£- 36 OPDECL ( op 5 6 ) ; \ 

37 OPDECL ( op57 ) ; \ 

38 OPDECL ( op58 ) ; \ 

39 OPDECL ( op59 ) ; \ 

40 OPDECL ( op60 ) ; \ 

41 OPDECL ( op6X ) ; \ 

42 OPDECL ( op62 ) ; \ 

43 OPDECL ( op63 ) ; \ 

44 END_IDEF \ 

45 /* dlow tor semicolon */ \ 



46 typed*! int c## l_#f _DECIABE_I POLY DUMMY 

47 

48 

49 #cndi£ // I POLY_DETINED 
50 
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